home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / tests / sscanf.dia.ref < prev    next >
Text File  |  1999-09-16  |  2KB  |  116 lines
  1.  
  2. //test format %i %d
  3.  
  4. if sscanf('123','%i')<>123 then bugmes();quit;end
  5.  
  6. if sscanf('     123','%i')<>123 then bugmes();quit;end
  7.  
  8. if sscanf('123','%2i')<>12 then bugmes();quit;end
  9.  
  10. if sscanf('123','%0i')<>123 then bugmes();quit;end
  11.  
  12. if sscanf('123','%5i')<>123 then bugmes();quit;end
  13.  
  14. //test format %u
  15.  
  16. if sscanf('+123','%u')<>123 then bugmes();quit;end
  17.  
  18. if sscanf(' 123','%2u')<>12 then bugmes();quit;end
  19.  
  20. if sscanf('123','%0u')<>123 then bugmes();quit;end
  21.  
  22. if sscanf('+123','%5u')<>123 then bugmes();quit;end
  23.  
  24. //test format %e %f %g
  25.  
  26.  
  27. if sscanf('123','%e')<>123 then bugmes();quit;end
  28.  
  29. if sscanf('     123','%e')<>123 then bugmes();quit;end
  30.  
  31. if sscanf('123','%2e')<>12 then bugmes();quit;end
  32.  
  33. if sscanf('123','%0e')<>123 then bugmes();quit;end
  34.  
  35. if sscanf('123','%5e')<>123 then bugmes();quit;end
  36.  
  37.  
  38. //test format %s
  39.  
  40. if sscanf('123','%s')<>'123' then bugmes();quit;end
  41.  
  42. if sscanf('     123','%s')<>'123' then bugmes();quit;end
  43.  
  44. if sscanf('123','%2s')<>'12' then bugmes();quit;end
  45.  
  46. if sscanf('123','%0s')<>'123' then bugmes();quit;end
  47.  
  48. if sscanf('123','%5s')<>'123' then bugmes();quit;end
  49.  
  50.  
  51. //test format %o
  52.  
  53. if sscanf('123','%o')<>83 then bugmes();quit;end
  54.  
  55. if sscanf('     123','%o')<>83 then bugmes();quit;end
  56.  
  57. if sscanf('123','%2o')<>10 then bugmes();quit;end
  58.  
  59. if sscanf('123','%0o')<>83 then bugmes();quit;end
  60.  
  61. if sscanf('123','%5o')<>83 then bugmes();quit;end
  62.  
  63.  
  64. //test format %x
  65.  
  66. if sscanf('123','%x')<>291 then bugmes();quit;end
  67.  
  68. if sscanf('     123','%x')<>291 then bugmes();quit;end
  69.  
  70. if sscanf('123','%2x')<>18 then bugmes();quit;end
  71.  
  72. if sscanf('123','%0x')<>291 then bugmes();quit;end
  73.  
  74. if sscanf('123','%5x')<>291 then bugmes();quit;end
  75.  
  76.  
  77. //test format %c
  78.  
  79. if sscanf('123','%c')<>'1' then bugmes();quit;end
  80.  
  81. if sscanf('     123','%c')<>' ' then bugmes();quit;end
  82.  
  83. if sscanf('123','%0c')<>'1' then bugmes();quit;end
  84.  
  85.  
  86. //test des format complexes
  87.  
  88. if sscanf('123 4','%*s%s')<>'4' then bugmes();quit;end
  89.  
  90. if sscanf('123 4','123%e')<>4 then bugmes();quit;end
  91.  
  92. [a,b,c]=sscanf('xxxxx 4 test 23.45','xxxxx%i%s%e')
  93.  c  =
  94.  
  95.     23.45  
  96.  b  =
  97.  
  98.  test   
  99.  a  =
  100.  
  101.     4.  
  102.  
  103. if a<>4|b<>'test'|c<>23.45 then bugmes();quit;end
  104.  
  105.  
  106. [a,b]=sscanf('123\n456','%e%e')
  107.  b  =
  108.  
  109.     456.  
  110.  a  =
  111.  
  112.     123.  
  113.  
  114. if a<>123|b<>456 then bugmes();quit;end
  115.  
  116.